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SUMMARY  PAGE 


THE  PROBLEM 

An  automated  version  of  a  dichotic  listening  test  that:  (a)  operated  on  a  80286-based  computer;  (b) 
provided  data  that  were  compatible  with  data  gathered  with  a  manually  administered  version;  (c)  contained  a 
practice-to-criterion  procedure;  and  (d)  could  be  administered  with  a  minimum  of  experimenter  intervention 
could  not  be  located  in  the  scientific  literature.  A  suitable  test  version  was  required  to  fulfill  research  needs 
centering  around  the  development  of  new  hearing  standards  for  naval  aviators. 

FINDINGS 

A  suitable  microcomputer-based,  automated  version  of  a  dichotic  listening  test  was  developed, 
tested,  and  reHned  to  the  point  where  all  experimental  requirements  were  met.  The  source  code  is  provided 
and  copies  of  executable  code  and  stimulus  files  are  available  from  the  authors. 
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INTRODUCTION 


The  dichotic  listening  test  (DLT)  has  been  utilized  as  a  measnxe  of  selective  attention  for  decades 
and  has  found  application  in  both  clinical  and  applied  settings.  The  dichotic  listening  test  paradigm  has  been 
of  particular  interest  to  researchers  attempting  to  develop  methods  for  selecting  and  assigning  student 
aviators  and  for  retaining  aviators  of  advancing  age.  Gopher  and  Kahneman  (1)  and  North  and  Gopher  (2) 
were  the  first  to  note  the  relationship  between  measures  of  attention  and  flight  performance  in  the  Israeli 
Air  Force.  Griffin  and  his  associates  (3-5)  studied  the  DLT  in  conjunction  with  a  concurrent  psychomotor 
task  in  the  U.S.  Navy  and  found  it  to  of  use  in  predicting  primary  flight  grades  (6).  We  at  the  Naval 
Aerospace  Medical  Research  Laboratory  have  incorporated  the  DLT  in  a  battery  of  tests  designed  to  assess 
the  auditory  fitness  of  aviators  (7).  The  purpose  of  this  test  battery  is  to  provide  flight  surgeons  with 
additional  information  regarding  higher  auditory  functioning  to  supplement  (or  supplant)  the  currently 
available  pure-tone  audiogram  and  Whispered  Voice  Test  measures. 

During  the  development  of  the  test  battery,  we  evaluated  several  existing  methods  (both  manual  and 
automated)  of  administering  the  DLT  and  found  none  that  met  all  of  our  requirements.  These  requirements 
included  stimulus  and  response  compatibility  with  the  hundreds  of  data  points  that  we  had  gathered  earlier 
by  manual  test  administration,  '.he  capability  of  utilizing  an  80286  (or  80386)  microprocessor-based  host 
computer  to  administer  and  score  the  test,  instructions  which  the  vast  majority  of  subjects  understood 
without  experimenter  intervention,  a  perform-to-criterion  practice  session,  and  provisions  for  the  correction 
by  the  subject  of  erroneous  responses. 

The  purpose  of  this  technical  memorandum  is  to  make  this  automated  version  of  the  DLT  available 
to  other  investigators.  The  appendix  contains  the  source  code  (written  m  Microsoft  QuickBasic  v43)  and  is 
available  in  compiled  form  on  magnetic  media  from  the  authors  upon  request.  The  digitized  stimuli  are 
similarly  available  upon  request. 

METHOD 


EQUIPMENT 

The  original  source  code  was  written  in  Microsoft  QuickBasic  on  a  Hewlett-Packard  Vectra  (Model 
23;  80286  microprocessor)  but  has  been  tested  on  other  80286-based  machines  to  verify  BIOS  interrupt 
compatibility.  Although  no*:  tested  at  the  time  of  this  writing,  the  code  should  also  be  100%  compatible  with 
computers  based  on  the  80386  and  80486  microprocessor  (given  the  advertised  downward  compatibility  of 
these  microprocessors).  The  code  has  been  tested  and  is  compatible  with  various  video  modes  (e.g.,  MGA, 
CGA,  EGA  and  VGA)  with  only  mmor  (if  any)  modifications.  A  numeric  co-processor  is  not  required. 

The  only  computer  hardware  requirement  beyond  the  basic  computer  is  a  D/A-A/D  conversion 
board.  This  board  should  be  capable  of  the  virtually  simultaneous  presentation  of  two  outputs,  be  able  to  . 
sample  at  a  16-kHz  rate,  and  should  contain  all  the  necessary  signal  conditioning  circuitry  onboard.  The  two 
single-channel  Antex  VP-620E  A/D-A/D  boards  were  chosen  because  of  their  optimized  onboard  signal 
conditioning  circuitry  and  the  availability  of  sophisticated  driver  software. 

The  output  of  the  D/A  boards  is  via  RCA  plugs,  which  are  patched  to  a  two-channel  L-pad  to 
control  signal  level  before  being  routed  to  a  pair  of  Koss  Pro-4AAA  headphones.  The  Koss  headphones 
were  chosen  because  of  their  comfort  and  because  of  the  essential  equivalency  of  their  left  and  right 
transducers  (<  1  dB  (SPL)  aaoss  several  samples).  Other  brands  or  models  might  require  a  pair  of 
independently  controllable  L-pads  to  equate  the  left  and  right  earphone  channels.  Equal  amplitude  left  and 
right  channels  are  critical  with  the  DLT  and  should  be  verified  with  a  sound  level  meter  and  artificial  ear. 
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MATERIALS 


The  original  analog  speech  signals  were  created  by  the  Central  Institute  for  the  Deaf,  St.  Louis, 
Missouri,  and  were  utilized  m  our  early  manual  administrations  of  the  DLT.  The  master  tape  was  di^tized 
(by  the  Antex  D/A-A/D  board)  and  stored  on  the  host  computer’s  hard  drive.  Sampling  at  a  16'kHz  rate 
requires  5.6  MB  of  storage  space  for  the  entire  di^tized  test  session.  (Signals  sampled  at  8  kHz  require  2.8 
MB  of  storage  and  result  in  little  audible  difference  from  the  16*kHz  rate.) 

The  speech  tape  utilized  in  the  present  version  of  the  DLT  is  somewhat  different  from  other 
versions.  I'o  increase  the  difficulty  of  the  test  and,  thereby,  increase  the  variance  between  subjects  (and 
shorten  the  number  of  required  trials),  an  interfering  stimulus  accompanies  the  presentation  of  each  test 
stimulus.  This  interfering  stimulus  is  actually  a  smgle  utterance  of  backward-played  speech  and,  though 
unintelli^ble  and  of  a  different  spectrum  than  the  test  stimuli,  serves  to  demand  a  greater  degree  of 
attention  on  the  part  of  the  subject.  Because  of  this  interfering  stimulus,  we  have  been  able  to  reduce  the 
number  of  test  trials  from  a  pre\aous  minimum  of  24  to  a  total  of  12  without  loss  of  sensitivity.  Stimuli  are 
presented  at  a  level  of  84  dB  (SPL)  at  the  ear,  and  the  interstimulus  interval  is  constant  at  700  ms. 

PROCEDURE 

The  basic  DLT  task  requires  the  subject  to  pay  attention  to  the  signal  occurring  in  a  "target”  ear 
while  attempting  to  ignore  signals  occurring  simultaneously  m  the  opposite  ear.  In  addition  to  this 
interchannel  attentional  requirement,  subjects  must  also  exercise  intrachannel  attention  to  the  target  ear 
stimuli,  which  are  occurrmg  concurrently  with  the  backward  speech  interfering  sounds.  A  further  level  of 
processing  is  required  in  that  once  the  target  ear  stimuli  are  received,  they  must  be  categorized  as  being 
either  a  letter  of  the  alphabet  or  a  number.  Only  numerical  stimuli  are  to  be  recorded  on  the  response 
screen  by  the  subject.  A  given  DLT  trial  is  divided  into  two  parts,  the  first  part  requiring  five  responses  and 
the  second  part  requiring  four  responses.  The  target  ear  is  identified  with  a  "RIGHT"  or  a  "LEFT" 
command  at  the  beginning  of  each  part  and  mdicates  to  the  subject  to  which  ear  he  is  to  attend.  The  target 
ear  commands  before  each  part  withm  a  trial  can  specify  the  same  ear  or  opposite  ears.  Again,  the  subject’s 
task  is  to  record  (via  numerical  keypad  on  the  computer  keyboard)  only  the  numbers  which  occur  in  the 
target  ear.  Table  1  further  illustrates  the  procedure: 

Table  1.  Sample  DLT  Trial  (Correct  Responses  are  Underlined) 


Part  1 


Part  2 


BOTH  ears:  TRIAL  1  RIGHT  (backward  speech...)  LEFT  (backward  speech...) 


LEFT  ear:  EPN4SY8Z5UCVR9IB  GK6  241 

RIGHT  ear:  S  2  X  A  RJ  L^  T  Q  J  M^  G  1  K  J  R  38  9~5 

time - > 


Before  beginning  a  test  session,  each  subject  is  seated  at  the  computer  and  reminded  of  the  color 
coding  of  the  earphones  (i.e.,  the  red  earphone  is  fitted  on  the  right  ear).  The  subject  is  then  left  alone  to 
read  the  instructions  on  the  computer  screen  and  begin  the  test  session  (by  pressing  the  space  bar).  (The 
verbatim  instructions  are  included  in  code  in  the  appendix.)  Prior  to  the  formal  gathering  of  test  responses, 
the  subject  is  given  one  demonstration  trial  durmg  which  he  simply  listens  while  the  computer  displays  the 
coirect  responses  on  the  screen.  Figure  1  is  an  illustration  of  the  computer  response  screen  as  it  appears  to 
the  subject.  The  subject  is  then  presented  the  same  trial  and  is  required  to  enter  the  responses.  He  is 
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pennitted  two  attempts  to  attuin  a  perfect  score  on  this  initial  practice  trial.  If  the  subject  fails  on  both  of 
these  attempts,  a  second  practice  trial  is  then  presented,  and  the  subject  is  ^ven  three  opportunities  to  score 
perfectly.  Should  the  subject  fail  to  attain  at  least  one  perfect  trial,  ^e  practice  session  is  terminated  and  a 
message  appears  on  the  screen  requesting  the  subject  to  seek  the  assistance  of  the  experimenter.  The 
experimenter  checks  the  headphones  for  proper  ear  mounting  and  restates  the  salient  aspects  of  the 
instructions.  The  subject  is  then  given  another  opportunity  to  score  perfectly  on  the  practice  items.  A 
failure  to  provide  a  perfect  score  on  the  second  attempt  results  in  a  termination  of  the  test  session.  When 
the  subject  scores  perfectly  on  one  of  the  practice  trials,  the  test  immediately  proceeds  to  the  first  test  trial 
and  experimental  ^ta  collection  begins.  Throughout  the  test  session,  a  "+”  mark  mdicates  the  active 
response  box;  the  subject  is  able  to  correct  his  responses  by  the  use  of  the  "Backspace"  key. 


Figure  1.  DLT  Response  Screen 

Because  the  test  session  is,  in  large  part,  subject-dependent  (i.e.,  the  time  to  read  the  instructions, 
the  number  of  practice  trials  required  to  reach  the  criterion,  the  frequency  with  which  responses  are 
corrected  by  the  subject,  etc.),  test  duration  varies,  but  most  (i.e.,  an  estimated  90+%)  subjects  complete  the 
entire  DLT  session  in  8-10  min.  In  addition,  the  investigators  estimate  that  fewer  than  10%  of  subjects  will 
have  difficulty  understanding  the  instructions  and  require  experimenter  mtervention. 

SCORING 

At  the  conclusion  of  the  test  session,  the  experimenter  can  initiate  the  automatic  scoring  of  the 
subject’s  responses  and  display  summary  results  on  the  computer  saeen  (the  scores  are  automatically  stored 
to  a  file  of  the  experimenter’s  choosing).  A  number  of  errors  can  occur  during  a  DLT  session  including 
errors  of  omission,  commission,  and  transposition  ("correct"  numbers  mtruding  from  the  non-target  ear  can 
never  occur  because  the  target  and  non-target  ears  never  have  numbers  in  common  on  a  given  trial).  As 
might  be  expected,  there  have  been  discussions  about  the  most  effective  way  to  score  responses  on  the  DLT 
(e.g.,  8;  Griffin,  G.  R.,  Naval  Aerospace  Medical  Research  Laboratory,  Pensacola,  FL,  personal 
communication,  July,  1989). 

Because  of  the  sequential  nature  of  the  DLT,  errors  of  transposition  necessarily  occur  in  the 
presence  of  errors  of  omission  and  commission.  That  is,  if  an  error  of  omission  or  commission  occurs,  all 
succeeding  numbers  are  out  of  their  correct  position  (and,  therefore,  under  some  scoring  schemes,  recorded 
as  errors)  eventhough  they  were  correctly  heard.  The  scoring  scheme  we  adopted  de-emphasizes  errors  of 
transposition  and,  mstead,  emphasizes  errors  of  omission  and  commission.  In  brief,  the  scoring  algorithm 
checks  to  see  if  the  recorded  number  is  in  the  position  it  is  supposed  to  be  or  is  in  either  adjacent  position. 
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The  algorithm  will  allow  responses  to  be  misplaced  by  exactly  one  position  in  either  (Urection  (except  the 
first  and  last  numbers  in  each  part,  which  have  either  no  predecessors  or  successors,  respectively);  otherwise, 
an  error  is  recorded.  Responses  in  Parts  1  and  2  are  scored  identically.  The  source  code  underlying  this 
algorithm  is  included  in  the  appendix. 


DISCUSSION 

Over  200  subjects  have  completed  the  present  version  of  the  DLT,  and  we  have  concluded  that 
further  refinement  would  result  in  insignificant  improvements,  at  least  in  terms  of  our  requirements.  Perhaps 
the  most  challenging  aspects  of  the  development  of  any  totally  automated  task  is  the  creation  of  subject 
mstructions  that  are  completely  understandable  to  all  subjects.  This  is  particularly  true  with  a  test  like  the 
DLT  where  the  task  is  somewhat  complicated,  and  the  subjects  have  little  in  their  personal  experience  that 
prepares  them  for  the  task  requirements.  We  have  found  that  instruction  sets  can  be  created  that  are 
understandable  to  99  consecutive  subjects,  but  the  100th  subject  will  find  them  to  be  unfathomable.  Given 
this  apparent  tautology,  we  have  decided  to  continue  with  instructions  detailed  in  the  source  code  contained 
in  the  appendix.  The  other  aspects  of  the  test  provided  far  less  challenging  problems  although  incorporating 
the  manufacturer-supplied  drivers  for  the  the  A/D“D/A  boards  into  the  source  code  and  coordinating  the 
outputs  of  the  two  boards  to  provide  near  simultaneous  left/right  presentation  required  some  programming 
acrobatics.  Nonetheless,  the  automated  version  has  succeeded  in  providing  mean  scores  (n  =  120)  that  are 
not  functionally  different  from  those  derived  from  the  manually  administered,  two-channel  audio  tape-driven 
version  (n  =  180). 

The  details  of  this  version  of  the  DLT  are  being  made  available  to  other  researchers  so  that  they 
may  avoid  some  of  the  frustrations  and  development  pitfalls  that  we  encountered.  As  noted  earlier,  copies  of 
the  executable  code  and  stimulus  files  may  be  requested  from  the  authors. 
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APPENDIX 


DEFINT  A-Z 

DIM  code$(l  TO  12),  personal$(l  TO  9) 

DIM  pracrcsult$(l  TO  12),  result$(l  TO  12, 1  TO  9),  rt!(l  TO  100) 
lef$  -  TESTLP 
rit$  -  TESTRr 
«  dir$  -  '•C:\VOICEV 


vpbegiii  s  1 
vpsetply  =  3 
vpstart  »  4 
vpstatus  »  6 
vpstop  -  5 
vpend  “  9 
baseline  -  0 


MAINBODY: 

GOSUB  INSTRUCTIONS 
GOSUB  PREPDATA 
GOSUB  GETSTUFF 
CLS 

GOSUB  SETGRAPH 
REM  GOSUB  INIT 
GOSUB  PRACTICE 
15  GOSUB  KILLVOICE 
mid  =  21:  EOTEST  =  32 
CLS 

LOCATE  10,  4:  PRINT  This  concludes  the  PRACTICE  session." 
LOCATE  23,  7 

PRINT  "PRESS  THE  SPACE  BAR  TO  BEGIN" 

t!  -  TIMER:  DO  UNTIL  TIMER  >  t!  +  2:  LOOP 

GOSUB  READKEY 

GOSUB  PREPDATA 

GOSUB  CHOOSESPEECHFILE 

GOSUB  PLAYTEST 

t!  =  TIMER:  DO  UNTIL  TIMER  >  t!  +  2:  LOOP 
FOR  item  -  1  TO  12 
I&  *  FRE(O) 
works  «  STR$(item) 

works  =  RIGHTS(workS,  LEN(workS)  •  1) 

GOSUB  DRAWSCREEN 

LOCATE  11, 17:  PRINT  "TEST  "  +  workS; 

GOSUB  READNWRITE 
NEXT  item 

tl  =  TIMER:  DO  UNTIL  TIMER  >  t!  +  3:  LOOP 
SCREEN  2 
SCREEN  0 
GOSUB  KILLVOICE 
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GOSUB  WRITEDATA 

CHAIN  "a:basic\"  +  LEFT$(codc$(currciit),  4) 

END 

PLAYTEST: 
idl  =  1 
id2  -  2 

portl  &H280 
pcrt2  =  &H180 
usemt  »  3 

CALL  vp620(idl,  portl,  useint,  vpbegin) 

CALL  vp620(id2,  port2,  usemt,  vpbcgm) 
sr  *  0 

CALL  vp620(idl,  lftfile$,  sr,  vpsetply) 

CALL  \^20(id2,  ritfdeS,  sr,  vpsetply) 

tl  =  TIMER:  DO  WHILE  TIMER  <  tt  +  2:  LOOP 

CALL  vp620(idl,  vp«^tart) 

CALL  vp620(id2,  vpstart) 

RETURN 

GETSTUFF: 

OPEN  "b:battery"  FOR  INPUT  AS  #1 
FOR  index  «  1  TO  12 

INPUT  #1,  code$(mdex) 

NEXT  index 
CLOSE  1 

filenames  =  "b:info\sub"  +  code$(l)  +  ".dat" 

OPEN  filenames  FOR  INPUT  AS  #1 
FOR  index  «  1  TO  9 

INPUT  #1,  p5rsonalS(index) 

NEXT  mdex 
CLOSE  1 
RETURN 

CHOOSESPEECHFILE: 

CLS 

FOR  index  =  2  TO  12 

filenames  ™  LEFTS(code$(index),  4) 

IF  filenames  -  ''DLT2''  THEN  current  -  index  +  1 
NEXT  index 

tests  »  MIDS(codeS(current  •  1),  6,  2) 

IftfileS  »  dirS  +  lefS  +  testS  +  ".spc" 
ritfileS  =  dirS  +  ritS  +  testS  +  ".spc* 

RETURN 

SETGRAPH: 

SCREEN  1 
CLS 
RETURN 

DOTEXT: 

LOCATE  X,  y 
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PRINT  num; 
RETURN 


READKEY: 

DO 

ch$  «  INKEY$ 

LOOP  WHILE  ch$  <>  *" 

ch$  - 
DO 

ch$  -  INKEY$ 

LOOP  WHILE  ch$  * 

RETURN 

DRAWSCREEN: 

LINE  (1,  l)-(320,  200),  0,  BP 
xl  ■  36:  ys.  »  99 
WHILE  xl  <  260 
x2  -  xl  +  14 
y2  -  yl  +  16 

LINE  (xl,  yl).(x2,  y2),  3,  B 
xl  *>  xl  +  24 

IF  xl  «  156  THEN  xl  -  180 
WEND 

’LOCATE  16,  10:  PRINT  "PART  1" 
•LOCATE  16,  26:  PRINT  "PART  2" 
PRESET  (159,  20) 

RETURN 


READNWRITE: 
index  »  1 
X  a  6:  ypos  ■  14 
LOCATE  ypos,  x:  PRINT "+"; 

DO 

ch$  -  INKEYS 
IF  chS  «  THEN 

GOSUB  CHEKSTAT 
IF  tim  »  mid  THEN 

LOC/\TE  ypos,  x  PRINT " 
x  -  n 
index  «  6 

LOCATE  ypos,  x:  PRINT  "+"; 

ELSEIF  (tim  -  EOTEST  AND  hun  >  90)  OR  s  -  3  THEN 
DO:  a$  =  INKEYS:  LOOP  WHILE  a$  <>  "" 
RETURN 
END  IF 

ELSEIF  chS  -  CHRS(8)  AND  x  >  6  THEN 
LOCATE  ypos,  x:  PRINT  " " 

X  =  X  -  3 

index  =:  index  <  1 

IF  X  =  21  THEN  X  -  18 

LOCATE  ypos,  x:  PRINT  "+"; 
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EL  SEIF  X  =  24  AND  tim  <  =  mid  THEN 
ch$  =  "* 

ELSEIF  ch$  >  CHR$(47)  AND  ch$  <  CHR$(58)  AND  x  <  =  33  THEN 
result$(item,  index)  =  chS 
LOCATE  ypos,  x 
PRINT  ch$ 

X  =  X  +  3 
index  =  index  +  1 
!F  X  =  21  TI  'EN  X  *  24 
IF  X  <  36  THEN  LOCATE  ypos,  x;  PRINT 
END  IF 
LOOP 
RETURN 

PREPDATA: 

FOR  item  =  1  TO  12 

FOR  mdex  =  1  TO  9 

r.  .sult$(item,  index)  =  " " 

NEXT  index,  item 
RETURN 

KILLVOICE: 
idl  =  1 
id2  =  2 

CALL  vp620(idl,  vpstop) 

CALL  vp620(id2,  vpstop) 

CALL  vp620(idl,  vpend) 

CALL  v^200d2,  vpend) 

RETURN 

WRITEDATA; 

OPEN  "b:answers\DLT2"  +  test$  +  code$(l)  +  “.ans"  FOR  OUTPUT  AS  #1 
FOR  item  =  1  TO  12 

FOR  index  =  1  TO  9 

PRINT  #1,  result$(item,  mdex); 

NEXT  index 
PRINT  #1, 

NEXT  item 

CLOSE  #1:  ’diffl  =  diffi  /  csub! 

’OPEN  "b:answers\DLT2"  +  testS  +  code$(l)  +  ".vld"  FOR  OUTPUT  AS  #1 
’FOR  I  =  1  TO  event:  PRINT  #1,  rt!(I):  NEXT  I:  PRINT  #1,  diffl 
’CLOSE  #1 
RETURN 

PRACriCE: 

missed  =  0 

mid  =  16:  EOTEST  =  25 
item  =  1:  flag  =  0 
pracresult$(l)  =  "349014379" 
pracresult$(2)  =  "638153492" 
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GOSUB  PRACINST 
DO  UNTIL  item  =  3 
tries  =  0 

works  =  STR$(item) 

works  =  RIGHT$(workS,  LEN(work$)  -  1) 

IftfileS  =  dirS  +  "PraclT  +  workS  +  ".spc" 
ritfileS  =  dirS  +  "Pracrt"  +  workS  +  ".spc" 

DO 

tries  =  tries  +  1 

IF  item  =  1  AND  tries  =  1  THEN 
CLS 

LOCATE  13,  9 

PRINT  "PLEASE  WATCH  THIS  TRIAL" 
t!  =  TIMER:  DO  WHILE  tf  +  4  >  TIMER:  LOOP 
END  IF 

GOSUB  PLAYTEST 
GOSUB  DRAWSCREEN 
LOCATE  11,  16 
PRINT  "PRACTICE  "  +  workS; 

IF  item  =  1  AND  tries  -  1  THEN 

X  =  6:  ypos  =  14:  mterval!  =  2.51 
LOCATE  ypos,  x;  PRINT  "+" 

LOCATE  18,  3 

PRINT  "  Listen  tb'ougb  your  RIGHT  ear." 
t!  =  TIMER:  DO  UNTIL  t!  +  7.95  <  TIMER:  LOOP 
FOR  index  =  1  TO  9 
LOC.4TE  ypos,  x 

PRINT  MIDS(pracresultS(l),  index,  1) 

X  =  X  +  3 
IF  X  =  21  THEN 
X  =  24 

LOCATE  ypos,  x 
PRINT "+" 
interval!  =  .95 

t!  =  TIMER:  DO  UNTIL  t!  +  3  <  TIMER:  LOOP 
LOCATE  18,  3 

PRINT  "  Listen  through  your  LEFT  ear.  " 
t!  =  TIMER:  DO  UNTIL  t!  +  2.25  <  TIMER:  LOOP 
END  IF 

IFx  <  36  THEN 

LOCATE  ypos,  x 
PRINT "+" 

END  IF 

t!  =  TIMER:  DO  UNTIL  t!  +  mterval!  <  TIMER:  LOOP 
NEXT  index 
GOSUB  KILLVOICE 

t!  =  TIMER:  DO  UNTIL  tl  +  5  <  TIMER:  LOOP 

GOSUB  PRACINST2 

CLS 

GOTO  5 
END  IF 

DO:  a$  =  INKEYS:  LOOP  WHILE  a$  <>  "" 


A-5 


GOSUB  READNTWRITE 
flag  =  -1 

FOR  index  =  1  TO  9 

IF  MID$(pracresult$(item),  index,  1)  <>  result$(item,  index)  THEN  flag  = 
NEXT  index 
IF  flag  THEN  RETURN 

t!  “  TIMER:  DO  UNTIL  TIMER  >  t!  +  2;  LOOP 
GOSUB  KILLVOICE 

t!  =  TIMER:  DO  UNTIL  TIMER  >  t!  +  2:  LOOP 
IF  tries  >  2  THEN  flag  =  -1 
5  LOOP  UNTIL  flag 

item  “  item  +  1 
LOOP 

GOTO  BOMB 

END 


INIT: 

RANDOMIZE  (TIMER) 

h  =  159:  ky!  =  20:  r  =  15:  pi!  =  3.14159:  aspect!  =  320  /  200:  csub!  =  0:  diffl  =  0 
centx!  =  STICK(O):  centy!  =  STICK(l) 

ON  STRIG(O)  GOSUB  PROCTRIG 
ON  STRIG(4)  GOSUB  PROCTRIG 
RETURN 


MAIN: 

GOSUB  DOSTIK:  GOSUB  ADDCHAOS:  GOSUB  DOEVENT:  csub!  =  csub!  +  1:  diffl  =  diff!  + 
ABS(ky!  -  y!  -  20) 

STRIG(O)  OFF 
STRIG(4)  OFF 

LINE  -(h  -  x!,  ky!  -  yl),  0, ,  &HFFFF 
ky!  =  ky!  +  vaxis!  +  dky! 
theta!  =  theta!  +  dthetal  +  phi! 

IF  ABS(ABS(thetal)  ■  (pi!  /  2))  <  pi!  /  16  THEN  theta!  =  SGN(thetal)  *  pi!  /  2.5 
x!  =  r  *  COS(theta!)  *  aspect!:  y!  =  r  *  SIN(thcta!)  *  aspect! 

IF  ky!  >  40  THEN  ky!  =  40  ELSE  IF  ky!  <  0  THEN  ky!  =  0 

LINE  (135,  20)-STEP(48,  0),  3, ,  &HFOFO 

LINE  (h  -  x!,  iq'l  -  y!)-(h  +  x!,  ky!  +  y!),  3, ,  &HFFFF 

FOR  ii  =  1  TO  100:  NEXT  ii 

IF  inprogress  AND  dir  THF.N 

offset  =  INT(TIMER  -  start!):  LOCATE  oy%,  ox%  +  (offset  -  1)  *  dir 
PRINT  " ":  LOCATE  oy%,  ox%  +  offset  *  dir:  PRINT  "o" 
dir  =  SGN(ABS(offset  -  ABS(20  -  ox%)))  *  SGN(20  -  ox%) 

END  IF 
STRIG(O)  ON 
STRIG(4)  ON 
RETURN 

DOSTIK: 

phi!  =  CINT(STICK(0)  -  centx!)  *  pi!  /  3000 
vaxis!  =  CTNT(STICK(1)  -  centy!)  /  75 
RETURN 


ADDCHAOS: 

IF  ABS(theta!)  <  pi!  /  16  THEN  targettheta!  =  RND(l)  ♦  pi!  -  (pi!  /  2) 

IF  ABS(ky!  -  20)  <  1.25  THEN  targetky!  =  RND(1)  *  40 
dtheta!  =  RND  *  SGN(theta!  -  targettheta!)  *  pll  /  400 
dky!  =  RND  ♦  SGN(ky!  -  targetky!)  ♦  .15 
RETURN 

DOEVENT; 

IF  RND(l)  >  .005  OR  inprogress  THEN  RETURN 

offset  =  0 

event  =  event  +  1 

ox%  =  RND(l)  *20  +  10:  oy%  =  RND(l)  *3  +  2 
LOCATE  oy%,  ox%:  PRINT  "o":  start!  =  TIMER 
dir  =  SGN(20  -  ox%) 
inprogress  =  -1 
RETURN 

PROCTRIG: 

IF  inprogress  THEN  inprogress  -  0  ELSE  RETURN 
BEEP 

finish!  =  TIMER 
rt!(event)  «=  finish!  -  start! 

LOCATE  oy%,  8;  PRINT  " 

RETURN 

INSTRUCTIONS: 

DEF  SEG  »  0:  POKE  &H417,  PEEK(&H417)  OR  32:  DEF  SEG 
SCREEN  1:  CLS 
LOCATE  9,  9 

PRINT  "DICHOTIC  LISTENING  TESr 

LOCATE  16,  5:  PRINT  "PRESS  THE  SPACE  BAR  TO  CONTINUE" 

GOSUB  READKEY 

CLS  :  SCREEN  2:  SCREEN  0 

LOCATE  4 

PRINT  TAB(IO); "  The  puipose  of  the  following  tests  is  to  measure" 

PRINT  TAB(IO);  "your  ability  to  pay  attention  to  what  you  are  hewing" 

PRINT  TAB(IO);  "in  one  ear  while  ignoring  v/hat  is  occurrmg  in  the" 

PRINT  TAB(IO);  "opposite  ear.  During  the  tests,  you  will  hear  a  series" 

PRINT  TAB(IO);  "of  numbers  and  letters  of  the  ^phabet  in  one  ear,  and" 

PRINT  TAB(IO);  "a  different  series  of  numbers  and  letters  in  the  other" 

PRINT  TAB(IO);  "ear.  Masking  sounds  will  also  be  occurrmg  m  both  ears" 

PRINT  TAB(IO);  "throughout  the  tests." 

LOCATE  14 

PRINT  TAB(IO); "  Your  task  will  be  to  identify  only  the  NUMBERS" 

PRINT  TAB(IO);  "that  you  hear  in  a  given  ear  while  disregarding  the" 

PRINT  TAB(10y,  "numbers  and  other  sounds  being  spoken  to  you  in  the" 

PRINT  TAB(IO);  "opposite  ear.  The  ear  that  you  pay  attention  to  is" 

PRINT  TAB(IO);  "determined  by  a  LEFT  or  RIGHT  command  given  at  the" 

PRINT  TAB(IO);  "beginning  and  in  the  middle  of  each  test." 

LOCATE  24,  21:  COLOR  16,  7:  PRINT  "PRESS  THE  SPACE  BAR  TO  CONTINUE"; :  COLOR  7, 

0 

GOSUB  READKEY 
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CLS 

LOCATE  2 

PRINT  TAB(IO); "  For  example,  if  you  hear  the  word  LEFT,  you  are  to" 

PRINT  TAB(IO);  "concentrate  on  the  NUMBERS  that  you  hear  in  your  LEFT" 

PRINT  TAB(IO);  "ear.  Other  sounds  that  you  hear  should  be  ignored. " 

PRINT  TAB(IO);  "And  likewise  when  you  hear  the  word  RIGHT,  you  are  to" 

PRINT  TAB(IO);  "focus  your  attention  on  the  NUMBERS  that  are  being" 

PRINT  TAB(IO);  "spoken  in  your  RIGHT  ear.  You  should  type  these" 

PRINT  TAB(IO);  "NUMBERS  on  the  keypad  as  you  hear  them.  The  numbers" 

PRINT  TAB(IO);  "will  be  displayed  on  the  screen  in  the  appropriate  box" 

PRINT  TAB(IO);  "as  you  input  them.  If  you  make  a  mistake,  use  the" 

PRINT  TAB(IO);  "back-space  key  to  correct  it." 

LOCATE  14 

PRINT  TAB(IO);  "Note;  ’Oh’  is  considered  a  letter;  ’Zero’  is  a  number." 

PRINT 

’PRINT  TAB(IO);  "Note:  If  for  some  reason  a  test  ends  without  all  of 
’PRINT  TAB(IO); "  the  boxes  being  filled  simply  press  the  space" 

’PRINT  TAB(IO);  "  bar,  the  ’+’  key,  or  the  ENTER  key  to  advance" 

’PRINT  TAB(IO); "  to  the  next  test." 

PRINT  TAB(IO);  "Note:  Please  make  sure  that  the  ’Num  Lock’  light" 

PRINT  TAB(IO); "  is  illuminated  on  the  keyboard." 

PRINT  TAB(IO); "  (If  it  isn’t,  press  the  ’Num  Lock’  key  above" 

PRINT  TAB(IO); "  the  numeric  keypad)." 

LOCATE  21,  1 

PRINT  TAB(IO);  "PLEASE  INSURE  THE  HEADPHONE  SWITCH  IS  IN  THE  ‘S’  POSITION." 
PRINT  TAB(IO); "  PLACE  THE  HEADPHONES  ON  (RED  EARCUP  ON  THE  RIGHT  EAR)." 
LOCATE  24,  21:  COLOR  16,  7 
PRINT  "PRESS  THE  SPACE  BAR  TO  CONTINUE."; 

GOSUB  READKEY 

’PRINT  "  During  the  DLT,  a  joystick  task  must  also  be  performed." 

’PRINT 

’PRINT  "  The  joystick  task  consists  of  keeping  an  artificial  horizon" 

’PRINT  "  lined  up  with  a  horizon  line.":  PRINT 

’PRINT  "  At  intervals,  a  target  will  appear  and  begin  to  move  toward" 

’PRINT  "  the  center  of  th  screen.  When  this  occurs,  press  one  of 

’PRINT  "  the  fire  buttons  on  the  joystick." 

’PRINT  :  PRINT  TAB(19); :  COLOR  16, 15:  PRINT  "PRESS  ANY  KEY  WHEN  YOU  ARE 
READY  TO  BEGIN";  :  COLOR  15,  0 
’DO  WHILE  INKEYS  =  "":  LOOP 
SCREEN  2;  SCREEN  0 
RETURN 

BOMB: 

IF  BOMB  =  1  THEN  RETURN  15 
CLS 

LOCATE  7,  9 

PRINT  "There  has  been  a  problem." 

LOCATE  11,  6 

PRINT  "Please  contact  the  experimenter." 

GOSUB  READKEY 
GOSUB  KILLVOICE 
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BOMB  =  BOMB  +  1 
RETURN  MAINBODY 

PRACINST: 

SCREEN  2:  SCREEN  0 
LOCATE  6 

PRINl’  TAB(9);  "The  following  exercise  is  a  demonstration  of  a  PRACTICE  test." 
LOCATE  9 

PRINT  "  This  exercise  will  demonstrate  the  basic  format  of 
PRINT  "the  remaining  tests." 

PRINT 
PRINT"  " 

LOCATE  23,  26:  COLOR  16,  7 

PRINT  "PRESS  THE  SPACE  BAR  TO  BEGIN" 

GOSUB  READKEY 
SCREEN  1 
RETURN 

PRACINST2: 

SCREEN  2:  SCREEN  0 
LOCATE  6 

PRINT  TAB(15);  "When  you  hear  the  second  LEFT  or  RIGHT  command,  the" 
PRINT  TAB(15);  "cursor  will  AUTOMATICALLY  move  to  the  second  group" 
PRINT  TAB(15);  "of  boxes,  if  it  is  not  already  there." 

LOCATE  23,  26:  COLOR  16,  7 

PRINT  "PRESS  THE  SPACE  BAR  TO  BEGIN" 

GOSUB  READKEY 
SCREEN  1 
RETURN 

CHEKSTAT: 

CALL  vp620(idl,  s,  e,  sec,  hun,  o,  vpstatus) 
sec  =  sec  -  5! 

IF  sec  /  331  -  CINT(sec  /  33!)  THEN  baselme  =  sec 
tim  B  sec  -  baseline 
’LOCATE  1,  1:  PRINT  tim 
RETURN 


{Scoring  Algorithm  for  the  DLT} 

dltitems  »  Q 
total  =  0 

OPEN  pans$  +  testl$  +  test2$  +  key$  +  SUBJECTS  +  ".ans"  FOR  INPUT  AS  #1 
OPEN  pkey$  +  "dlt2"  +  key$  +  ".key"  FOR  INPUT  AS  #2 

DO  WHILE  (NOT  EOF(l)  AND  NOT  EOF(2)) 

dltitems  =  dltitems  +  1 
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INPUT  #1,  answers 
INPUT  #2,  dltkeyS 


IF  MID$(dltkey$,  1, 1^  =  MID$(answer$,  1, 1)  THEN 
correct(l)  *  1 

ELSEIF  MID$(dltkey$,  2, 1)  =  MID$(answer$,  1, 1)  THEN 
correct(2)  =  1 
END  IF 

IF  MID$(dltkey$,  5, 1)  =  MID$(answer$,  5, 1)  THEN 
corrcct(5)  =  1 

ELSEIF  MID$(dltkey$,  4,  1)  =  MID$(answer$,  5, 1)  THEN 
correct(4)  =  1 
END  IF 

IF  MID$(dltkey$,  6, 1)  =  MID$(answer$,  6, 1)  THEN 
correct(6)  *  1 

ELSEIF  MID$(dltkey$,  7, 1)  -  MID$(answer$,  6, 1)  THEN 
correct(7)  =  1 
END  IF 

IF  MID$(dltkeyS,  9, 1)  =  MID$(answer$,  9, 1)  THEN 
correct(9)  -  1 

ELSEIF  MlD$(dltkey$,  8,  1)  =  MlD$(answer$,  9,  1)  THEN 
corrcct(8)  -  1 
END  IF 

FOR  j  =  2  TO  4 

IF  MID$(dltkcy$,  j,  1)  -  MID$(answer$,  j,  1)  THEN 

COITCCt(j)  »  1 

ELSEIF  MID$(dltkcy$,  j  •  1, 1)  =  MID$(answer$,  j,  1)  THEN 
corrcct(j  -  1)  ■  1 

ELSEIF  MIDS(dltkey$,  j  +  1,  1)  «  MID$(answer$,  j,  1)  THEN 
correct(j  +  1)  =  1 
END  IF 

NEXTj 

FOR  j  =  7  TO  8 

IF  MID$(dltkey$,  j,  1)  =>  MID$(answer$,  j,  1)  THEN 
corfect(j)  *  1 

ELSEIF  MID$(dltkey$,  j  -  1, 1)  =  MID$(answer$,  j,  1)  THEN 
correct(j  - 1)  =  1 

ELSEIF  MID$(dltkcy$,  j  +  1,  1)  =  MID$(answer$,  j,  1)  THEN 
correct(j  +  1)  =  1 
END  IF 

NEXT] 

FOR  j  =  1  TO  9 
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total  “  total  +  correct(j) 
correct(j)  *  0 
NEXTj 

LOOP 

CLOSE  1:  CLOSE  2 

PCORRDLT  =  100  *  total  /  (dititems  *  9) 
RETURN 


1 
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